home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / odlist / vbmsg.bas < prev   
BASIC Source File  |  1994-11-21  |  3KB  |  58 lines
  1. Option Explicit
  2.  
  3. ' Declares for VB Messenger v1.0b API
  4. ' Copyright ⌐ 1993, JOSWare, Inc.
  5. ' All rights reserved.
  6.  
  7. Type MODEL
  8.   usVersion         As Integer      'VB version used by control
  9.   fl                As Long         'Bitfield structure
  10.   pctlproc          As Long         'The control proc.
  11.   fsClassStyle      As Integer      'Window class style
  12.   flWndStyle        As Long         'Default window style
  13.   cbCtlExtra        As Integer      '# bytes alloc'd for HCTL structure
  14.   idBmpPalette      As Integer      'BITMAP id for tool palette
  15.   npszDefCtlName    As Integer      'Default control name prefix (near ptr)
  16.   npszClassName     As Integer      'Visual Basic class name (near ptr)
  17.   npszParentClassName As Integer    'Parent window class if subclassed (near ptr)
  18.   npproplist        As Integer      'Property list (near ptr)
  19.   npeventlist       As Integer      'Event list (near ptr)
  20.   nDefProp          As String * 1   'Index of default property
  21.   nDefEvent         As String * 1   'Index of default event
  22.   nValueProp        As String * 1   'Index of control value property
  23.   usCtlVersion      As Integer
  24. End Type
  25.  
  26. ' Get specific address of various variable types
  27. Declare Function ptGetVariableAddress Lib "VBMSG.VBX" (Var As Any) As Long
  28. Declare Function ptGetTypeAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (Var As Any) As Long
  29. Declare Function ptGetStringAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (ByVal S As String) As Long
  30. Declare Function ptGetLongAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (L As Long) As Long
  31. Declare Function ptGetIntegerAddress Lib "VBMSG.VBX" Alias "ptGetVariableAddress" (I As Integer) As Long
  32.  
  33. ' Get various values of data at specific addresses
  34. Declare Function ptGetIntegerFromAddress Lib "VBMSG.VBX" (ByVal I As Long) As Integer
  35. Declare Function ptGetLongFromAddress Lib "VBMSG.VBX" (ByVal L As Long) As Long
  36. Declare Function ptGetStringFromAddress Lib "VBMSG.VBX" (ByVal lAddress As Long, ByVal cbBytes As Integer) As String
  37. Declare Sub ptGetTypeFromAddress Lib "VBMSG.VBX" (ByVal lAddress As Long, lpType As Any, ByVal cbBytes As Integer)
  38.  
  39. 'Set address areas to variable values
  40. Declare Sub ptCopyTypeToAddress Lib "VBMSG.VBX" (ByVal lAddress As Long, lpType As Any, ByVal cbBytes As Integer)
  41.  
  42. ' Data Type Manipulation Functions
  43. Declare Function ptMakelParam Lib "VBMSG.VBX" (ByVal wLow As Integer, ByVal wHigh As Integer) As Long
  44. Declare Function ptLoWord Lib "VBMSG.VBX" (ByVal lParam As Long) As Integer
  45. Declare Function ptHiWord Lib "VBMSG.VBX" (ByVal lParam As Long) As Integer
  46. Declare Function ptMakeUShort Lib "VBMSG.VBX" (ByVal LongVal As Long) As Integer
  47. Declare Function ptConvertUShort Lib "VBMSG.VBX" (ByVal ushortVal As Integer) As Long
  48.  
  49. ' Get the literal text for a message
  50. Declare Function ptMessagetoText Lib "VBMSG.VBX" (ByVal uMsgID As Long, ByVal bFlag As Integer) As String
  51.  
  52. ' Visual Basic API Translator Functions
  53. Declare Function ptRecreateControlHwnd Lib "VBMSG.VBX" (ctl As Control) As Long
  54. Declare Function ptGetControlModel Lib "VBMSG.VBX" (ctl As Control, lpm As MODEL) As Long
  55. Declare Sub ptSetControlModel Lib "VBMSG.VBX" (ctl As Control, lpm As MODEL)
  56. Declare Function ptGetControlName Lib "VBMSG.VBX" (ctl As Control) As String
  57.  
  58.